const
  S1                        : array[0..255] of DWord = (
    $5F4690C6, $FD3F6FE3, $470EBF74, $A1AA1149, $B38C7E72, $7E89C43F, 
    $A3E1D540, $5766AE45, $490D7F5E, $55E878DB, $32BBCC4C, $9D6AB181, 
    $B2AC7F8A, $C37A29B7, $DCA5B098, $0B1356FD, $D82BAAF6, $CCB9B2D3, 
    $F675CE24, $27C01AB9, $7A586DA2, $815A302F, $091BB0F0, $844EB8B5, 
    $A277738E, $D862FDCB, $932C24FC, $B2D72CF1, $68F0A8BA, $418BB7A7, 
    $4FAD3648, $D8A7B36D, $BF3B3926, $46D839C3, $CE2230D4, $D680C829, 
    $290990D2, $DA74A01F, $67D7A0A0, $43112725, $90B55BBE, $2CD146BB, 
    $DE6F51AC, $B3B1CC61, $A2EB85EA, $26FEC997, $2FAC4FF8, $0F61F3DD, 
    $5D983B56, $E54A04B3, $6A7EE784, $E8031999, $BE12E802, $CE18140F, 
    $9150A450, $15D4F995, $BA8A37EE, $210253AB, $D590525C, $11318FD1, 
    $F2B0171A, $1A325F87, $B87DFDA8, $C689184D, $C3A5B186, $05FE13A3, 
    $DD36F234, $E09E0F09, $AB277332, $E0C38BFF, $9801BC00, $C5013005, 
    $25F9081E, $5F05249B, $86DA270C, $BECD7741, $75915C4A, $79C57977, 
    $BF3D3F58, $13A420BD, $F9069BB6, $DB236693, $5D3550E4, $FEE8A879, 
    $053A3262, $C73607EF, $7FA5E7B0, $CF3CCA75, $6844CC4E, $5D28B98B, 
    $FDD7CFBC, $A23C82B1, $0422557A, $4C971767, $62451508, $7A7A0D2D, 
    $2C9DF9E6, $5B28FD83, $F6A50394, $ABB9E5E9, $B47E2592, $566E87DF, 
    $ED382760, $D96EC8E5, $D5F0847E, $4DFC127B, $F3544C6C, $0375B221, 
    $623602AA, $31C63957, $B9307EB8, $5D11DD9D, $E48ECC16, $30BDD873, 
    $3AF10A44, $EA28C759, $A4664CC2, $73AC0BCF, $D6F37B10, $1EBE2B55, 
    $B2BF30AE, $104E2F6B, $7D5A9D1C, $FCB00591, $6EDF63DA, $50B1DF47, 
    $84DA7C68, $6BB2920D, $2E3C1246, $AAD0F763, $F0C464F4, $C78C4CC9, 
    $F3A5A7F2, $046D93BF, $3452E2C0, $E091F1C5, $61B3D0DE, $1F2E105B, 
    $BF35C1CC, $EA627D01, $5471790A, $48F90937, $DF5E0E18, $14E32A7D, 
    $CE48CC76, $AC915A53, $C40A13A4, $CB7B7639, $242F3722, $DE721FAF, 
    $AE115E70, $D6911C35, $9511650E, $81EAB54B, $9970BA7C, $DB441871, 
    $B87F423A, $227AB727, $EC1633C8, $F56AA6ED, $7097FAA6, $9D6E0143, 
    $F5ED1654, $67CD43A9, $4B35FA52, $B7B8AF9F, $4E29EE20, $9EA2AAA5, 
    $7E5AED3E, $BC131E3B, $59D6872C, $EBDBBF6A, $3D55E917, $879DED78, 
    $4850075D, $D84C9CD6, $5915EC33, $0CD86D04, $6898B519, $412CF182, 
    $1680438F, $2FD791D0, $2CED9D15, $FE53696E, $BD764B2B, $6B7227DC, 
    $1CB0BB51, $1A99F09A, $41E99F07, $F7D03B28, $56DA4BCD, $0FC9B306, 
    $1F781B23, $847717B4, $6434CA89, $D1C71CB2, $4147DB7F, $2F954980, 
    $3BD8F385, $D4FDD99E, $D2233C1B, $068E9C8C, $F5E9C2C1, $7C0CD5CA, 
    $10D4D8F7, $9BC81CD8, $E890743D, $98B23D36, $84C38E13, $7DB41664, 
    $2B3883F9, $EBF77BE2, $2ECE776F, $9B1E1530, $BC0BADF5, $D19D3DCE, 
    $9268F10B, $E0B6E53C, $C3ADEE31, $82C76EFA, $B2F696E7, $9BE09288, 
    $B33980AD, $9BE93B66, $61674503, $6EBA6914, $387AE169, $D1F10F12, 
    $7613175F, $E16CF4E0, $446CCC65, $D2D669FB, $DCB601EC, $9FF43DA1, 
    $0C9CBC2A, $496DD8D7, $99B49C38, $CADC711D, $1991AD96, $C2123FF3, 
    $D2F50FC4, $2112E2D9, $4926D642, $3E54BB4F, $42BCE890, $82234ED5, 
    $E606E22E, $943AA6EB, $BA96F29C, $F6F3B111, $929FBD5A, $FD999EC7, 
    $601F39E8, $11C0458D, $190E93C6, $D7B37EE3);

  S2                        : array[0..255] of DWord = (
    $3B738580, $EE201F85, $6311B59E, $B5F6881B, $CCDF188C, $356C2EC1, 
    $5948F1CA, $417164F7, $A706D8D8, $59BA203D, $AB329936, $F0B55A13, 
    $A69D1264, $F9B56FF9, $BE1817E2, $F9E1836F, $C4AD5130, $46C7D9F5, 
    $EDFA19CE, $E1A93D0B, $F428613C, $88D55A31, $103C8AFA, $B8B022E7, 
    $C4B04E88, $7C382CAD, $39929766, $A9261103, $96A46514, $85FCCD69, 
    $B32AAB12, $70A3235F, $6C6D30E0, $FA5DF865, $4B1A71FE, $A243B5FB, 
    $A5087DEC, $F180A9A1, $6C0AD82A, $CD0464D7, $2BD55838, $66701D1D, 
    $A8240996, $E25E0BF3, $E9A00BC4, $9C59CED9, $A3397242, $7921C74F, 
    $82EE2490, $06097AD5, $8835BE2E, $C894F2EB, $AF8A6E9C, $2BA51D11, 
    $75C6D95A, $77CD2AC7, $B750F5E8, $4AA8F18D, $8E49EFC6, $9D4C4AE3, 
    $E03B0674, $AC237449, $96F76D72, $8ADC6F3F, $D9AB2C40, $ED316145, 
    $524EFE5E, $41ABF3DB, $70F9334C, $B5B9B481, $AAA974B7, $1B3E2798, 
    $9969A9FD, $BAA749F6, $EF1FCDD3, $20605524, $1EF0BDB9, $7A579CA2, 
    $8D921B2F, $735F47F0, $297CABB5, $25A9328E, $06D7B8CB, $83DFCBFC, 
    $40756FF1, $DF93F7BA, $3F7842A7, $94F7ED48, $7179466D, $631F1826, 
    $F14794C3, $653AF7D4, $C898AB29, $4C8CFFD2, $C941CB1F, $340577A0, 
    $9AD25A25, $7DC75ABE, $0DA741BB, $700938AC, $1ECF4F61, $0A0B14EA, 
    $E8589497, $9B1946F8, $0FDEC6DD, $54D45A56, $B1729FB3, $2F35EE84, 
    $57323C99, $500A9702, $D62A7F0F, $90D8BB50, $F7596C95, $056C76EE, 
    $37E98EAB, $5A80795C, $B5FE52D1, $D73BE61A, $1FA96A87, $8D7D34A8, 
    $3FE12B4D, $242A1086, $218FEEA3, $73FC3934, $C3147209, $3A836232, 
    $8CCB36FF, $40541300, $3B78E305, $C69B871E, $43AD9F9B, $B5908E0C, 
    $ED797A41, $28796B4A, $1809C477, $653EB658, $CB0773BD, $5CC33AB6, 
    $07CE8193, $4E78D7E4, $BED64B79, $64EA6162, $F5E2F2EF, $EA327EB0, 
    $19D7BD75, $5A978B4E, $BB42748B, $F0C476BC, $9EF7C5B1, $9A56A47A, 
    $AC58A267, $64B8CC08, $E918A02D, $B182D8E6, $EE9D5883, $AED6CA94, 
    $274EC8E9, $FB729492, $3A70B2DF, $D76EFE60, $6B5CFBE5, $19E3837E, 
    $E5370D7B, $28E7336C, $06703521, $B4A691AA, $4FB50457, $C78675B8, 
    $B01BB09D, $2C8BEB16, $14AB7373, $0A811144, $7394EA59, $2D8EFBC2, 
    $93B376CF, $A2449210, $9F2F9E55, $4C426FAE, $B45A6A6B, $D803C41C, 
    $3219C891, $1A7C32DA, $FD7DEA47, $7282B368, $8457A50D, $5F417146, 
    $5CE7D263, $0C22ABF4, $24FFAFC9, $5DF296F2, $3B2A3EBF, $E62E39C0, 
    $2AB6A4C5, $58B74FDE, $B7BB8B5B, $856528CC, $726B8001, $BA2A880A, 
    $29525437, $A3C88518, $88537D7D, $92466B76, $3E817553, $43A69AA4, 
    $37261939, $52906622, $5A940AAF, $EFE6F570, $F9990F35, $F585240E, 
    $0AA9704B, $7596617C, $CA1C5B71, $FD44913A, $AF114227, $A2B2EAC8, 
    $0CD639ED, $F57DD9A6, $B4E75C43, $D637DD54, $8FDF26A9, $649B6952, 
    $FBEFDA9F, $6D69C520, $DDBDDDA5, $582EEC3E, $44B3193B, $5A626E2C, 
    $5E235AE1, $F89D4E6A, $C2D9B417, $6FDCE478, $D00ABBD6, $2FC88733, 
    $2E417404, $6F41D819, $B086A082, $F97CAE8F, $1DF1A8D0, $FF4C1015, 
    $6577A86E, $69A7862B, $E5B77E51, $9C47BF9A, $E10AAA07, $75217228, 
    $61CC5ECD, $B0501206, $8313F623, $AB6E5EB4, $DFA52D89, $46050BB2, 
    $EDB9867F, $81F9A080, $4CAAA685, $E162589E);

  S3                        : array[0..255] of DWord = (
    $76612A31, $4B379AFA, $D3D772E7, $11B4DE88, $D78EFCAD, $4584A766, 
    $35206103, $E3C7F514, $DDEE9D69, $9A23BB12, $DFC0735F, $353FC0E0, 
    $F8BAC865, $9E2A81FE, $09D405FB, $941A0DEC, $2B1879A1, $5341E82A, 
    $3557B4D7, $AAB5E838, $2B12ED1D, $F2921996, $96C45BF3, $B0DF9BC4, 
    $C6D79ED9, $D6EE8242, $57EB174F, $2A1CB490, $CC324AD5, $F241CE2E, 
    $931142EB, $3D37FE9C, $EE48ED11, $3A39E95A, $224C7AC7, $310D85E8, 
    $6597C18D, $B833FFC6, $9F1E9AE3, $DA969674, $462D4449, $28687D72, 
    $2E51BF3F, $0835BC40, $C8263145, $54570E5E, $F41443DB, $3642C34C, 
    $FE698481, $94729E8A, $4C54C4B7, $18D6B798, $B7A479FD, $250D59F6, 
    $235E1DD3, $C6D7E524, $85868DB9, $3A84ACA2, $0AB36B2F, $9245D7F0, 
    $263D7BB5, $E62C08CB, $D9C55BFC, $CC313FF1, $F17F07BA, $4D4F92A7, 
    $5F6C7D48, $2F012826, $FCF1E4C3, $F0CE87D4, $18BA7B29, $CC760FD2, 
    $F50F1B1F, $6C4807A0, $865F2A25, $32C76ABE, $1EE791BB, $6F8AC8AC, 
    $6A971F61, $0C3224EA, $975BE497, $3B69D6F8, $3BB196DD, $63326A56, 
    $F988EFB3, $98E57E84, $6DE00C99, $E0AFA702, $45A3CF0F, $CB774B50, 
    $5EB23C95, $556886EE, $4015DEAB, $DC9E095C, $FED222D1, $FA9EF61A, 
    $64D8BA87, $CCA9C4A8, $F5FFFB4D, $16042086, $CB123EA3, $74C7C934, 
    $3D4E4209, $ECE47232, $94F086FF, $264EA300, $6B9DB305, $3293971E, 
    $C7C5EF9B, $534A1E0C, $30594A41, $5E187B4A, $A8651477, $CC474658, 
    $B87243BD, $93194AB6, $F7BCD193, $5F6067E4, $F99C1B79, $0A077162, 
    $ABB442EF, $E4890EB0, $1FC88D75, $238B9B4E, $031A06BC, $98E395B1, 
    $9331B47A, $FCDFF267, $3C9D5C08, $7ACF702D, $4D54E8E6, $C9F7A883, 
    $08DA5A94, $3FA098E9, $244BA492, $72EE02DF, $0F218E60, $1419CBE5, 
    $40D3937E, $F0275D7B, $C8D8C36C, $34680521, $E1BDA1AA, $95685457, 
    $194705B8, $131E809D, $0ED9FB16, $4071C373, $A6A0A144, $4672BA59, 
    $2B240BC2, $E3DCC6CF, $77B86E55, $922E7FAE, $4A36BA6B, $DE91541C, 
    $D11D9891, $ACCF42DA, $2D5D3A47, $071F4368, $A5A6750D, $290B8146, 
    $FE1A2263, $A35E3BF4, $4F697FC9, $4143A6F2, $F7FF8EBF, $1398C9C0, 
    $800B74C5, $3E9F5FDE, $5D83DB5B, $8B8EB8CC, $7F7B5001, $A2B9980A, 
    $F85DA437, $04411518, $14EE4D7D, $A48C7B76, $3A1FC553, $4EFE2AA4, 
    $161BE939, $EC9D7622, $99155AAF, $55AD8570, $D8B9DF35, $BC69340E, 
    $055DC04B, $D45BF17C, $ED0FA13A, $92489227, $18077AC8, $71BD09ED, 
    $713FE9A6, $AFF1AC43, $8EAB6D54, $4060F6A9, $46647952, $911D2A9F, 
    $348C5520, $13AAADA5, $9953693B, $2AC3FE2C, $3E4B2AE1, $60A45E6A, 
    $EF3D0417, $030D7478, $6B19AA5D, $9648CBD6, $8F3ED733, $8CD10404, 
    $CE4FA819, $2B0BB082, $7A55FE8F, $2F7038D0, $1904E015, $B153B86E, 
    $DD33D62B, $1DD1DEDC, $AAEB4E51, $AD8ACF9A, $4B99FA07, $EF2E0228, 
    $BE4B2ECD, $620A2206, $6BF64623, $6919EEB4, $8A3EFD89, $6A461BB2, 
    $AF3ED67F, $86D43080, $972F7685, $513A689E, $F10E071B, $09D0938C, 
    $C18F95C1, $8F15F4CA, $1BFE73F7, $1F8423D8, $A6D8973D, $9A26EC36, 
    $2E46F913, $E8712D64, $78C5F6F9, $F706BAE2, $3A96B26F, $EC733C30, 
    $72D170F5, $74060CCE, $4130FC0B, $C84B1C3C, $6DEF0131, $FBD8CDFA, 
    $FD4971E7, $A06AD988, $4E88E3AD, $AB822A66);

  S4                        : array[0..255] of DWord = (
    $A9464ADD, $D3E9EE56, $ED2E83B3, $5B716284, $7C2B8099, $AFF8EB02, 
    $3922230F, $503EEF50, $07287095, $32878AEE, $AFC0F2AB, $E1456D5C, 
    $85A716D1, $0A97BA1A, $19C48E87, $8E94E8A8, $1E27AF4D, $F79AA486, 
    $EF12D2A3, $151AAD34, $3C7CB609, $7C9CB632, $8699DAFF, $CDED4700, 
    $9E46E705, $0EB19B1E, $AE6C039B, $16D8820C, $8DB13E41, $2AA03F4A, 
    $C81BE877, $50296A58, $066CF7BD, $FDCECEB6, $C5586593, $3BBA4BE4, 
    $C0ED8F79, $8E6EB562, $A0C896EF, $C93EB2B0, $5FE4C175, $8EE89F4E, 
    $2F27D88B, $9BCF6ABC, $3BFE89B1, $4888787A, $64A1C667, $D4B68008, 
    $89DD242D, $49696CE6, $6A6E3C83, $EF7B3E94, $D6550CE9, $C1A1E892, 
    $20AD56DF, $BB2E3260, $14E8FFE5, $BBAF977E, $E883717B, $BCF5276C, 
    $BC85F921, $9C2365AA, $D2752857, $87D729B8, $AE7F349D, $948D7F16, 
    $8D035773, $D5C88544, $E3CA2E59, $F5A94FC2, $AF871ACF, $6DF6C610, 
    $1C7AA255, $8CC983AE, $3D4DCE6B, $2454B81C, $0D7E8C91, $788406DA, 
    $7CF50E47, $7E666768, $C89A290D, $209E0546, $8006B663, $C94D1FF4, 
    $5AA3F3C9, $3D37EAF2, $F6D4E2BF, $AD136DC0, $DC00A8C5, $193963DE, 
    $2C95EF5B, $89391CCC, $6F5F4401, $7BFD5C0A, $47C07837, $267F3918, 
    $EAB5017D, $E63DFF76, $2AA75953, $89F40EA4, $26795D39, $0E40BA22, 
    $9055AEAF, $F53F2970, $2F221335, $C742380E, $41AAD44B, $602D557C, 
    $D4DF1F71, $C022653A, $7EB66627, $F77C9EC8, $5596BDED, $C5506DA6, 
    $F8544043, $6CE85154, $1D216AA9, $71F6BD52, $F6087E9F, $2474F920, 
    $D7C5E1A5, $7C67003E, $841B7D3B, $8AFC622C, $52F51EE1, $09C6226A, 
    $C5F5D817, $21F99878, $E8465E5D, $B4F84FD6, $C8BC6B33, $0C94E804, 
    $6EB31C19, $34CCF482, $722C528F, $29EFDCD0, $EE131415, $CD6ABC6E, 
    $67B6EA2B, $08B142DC, $90D84251, $F8FB939A, $09DDCE07, $3FD12628, 
    $900AE2CD, $F398A606, $DFCEDA23, $F8A4D2B4, $15857189, $16765FB2, 
    $0F402A7F, $B62AD480, $5070AA85, $2E506C9E, $BC8C1B1B, $A596F78C, 
    $37FF89C1, $3915B8CA, $6F0D47F7, $041E47D8, $B86B4B3D, $36D47036, 
    $D5BA8D13, $66031164, $462F6AF9, $F9E5FEE2, $8803066F, $EAE0E030, 
    $1385A4F5, $225B10CE, $9EEA100B, $AB38803C, $6421F531, $B0A791FA, 
    $426345E7, $EB3BFD88, $BB2E97AD, $DB8EAE66, $86EE8403, $DEDAA414, 
    $DF880869, $154ED212, $3773E65F, $0B0CFFE0, $F2390365, $6C0DA8FE, 
    $675FC8FB, $9060DCEC, $133684A1, $B1841F2A, $E8FEC7D7, $EAC54738, 
    $505BC81D, $15EA6096, $0419BEF3, $F2968AC4, $DAA649D9, $2223D942, 
    $08D1CA4F, $2AEA3390, $BDB1C5D5, $3D2B352E, $9ABC45EB, $A91B0D9C, 
    $95743811, $28BE605A, $D03ECDC7, $219524E8, $FE39DC8D, $214A86C6, 
    $822B3DE3, $E5E1C574, $BAE12F49, $8D181472, $679BB23F, $DFF37B40, 
    $CD56EC45, $66B6B55E, $DA0E86DB, $D6B2124C, $FD520F81, $CEA9558A, 
    $5DC257B7, $87C69698, $894FD4FD, $705220F6, $4A5200D3, $62A75424, 
    $FDCFB8B9, $A61E83A2, $2F909E2F, $F0E3D6F0, $6ECF76B5, $88F3298E, 
    $D2A58BCB, $37B0EAFC, $8F870AF1, $56D7FEBA, $DF6865A7, $9EB49C48, 
    $6464B16D, $DCE42F26, $A9FD07C3, $281236D4, $8B48E629, $D06A26D2, 
    $9CAF8E1F, $05B646A0, $56026525, $436391BE, $2E1054BB, $D7E297AC, 
    $330A2A61, $A01D5BEA, $7B4FF797, $20FA35F8);

